Imports System.Net
Imports System.Net.Sockets


Public Class Response

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim httpReq As System.Net.HttpWebRequest

        Try
            Dim httpURL As New System.Uri(TextBox5.Text)

            httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

            TextBox1.Text = httpReq.HaveResponse.ToString
            TextBox2.Text = httpReq.IfModifiedSince.ToString
            TextBox3.Text = httpReq.KeepAlive
            TextBox4.Text = httpReq.MaximumAutomaticRedirections

        Catch ex As Exception
            TextBox1.Text = ex.StackTrace.ToString()
        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
        MenuUtama.Show()
    End Sub
End Class
